home *** CD-ROM | disk | FTP | other *** search
/ The Arsenal Files 8 / The Arsenal Files Collection #8 (Arsenal Computer) (1996).ISO / pcboard / vrs501.zip / VRS-M5.PPE (.txt) < prev    next >
PCBoard Programming Language Executable  |  1996-10-08  |  2KB  |  131 lines
  1. ;------------------------------------------------------------------------------
  2. ;                                                   .ss.
  3. ;                                                   `²²'
  4. ;             .,sS$Ss,,s$  .,sS$$$Ss.  .,sS$Ss,,s$ .ss.  .sSs.
  5. ;           .d$$²^°²$$$$'.d$P²°^^²$P'.d$$²^°²$$$$'.$$$' .$$$²Sb,.
  6. ;           $$$'   .$$$' $$$²Sçsµ²' .$$$'   .$$$'.$$$' .$$$'  `$$b.
  7. ;           $$$b,,d$$$' ,$$$b,....,s$$$$b,,d$$$'.$$$;.,$$$'    ;$$$
  8. ;           `²S$$S²²S$$S²°²S$$$$S²°°²S$$$$$$',$$S²°²S$S'.sS$$$P²'
  9. ;                                    .sS²°$$$²²°"'       d²°'
  10. ;                                  .$$²  .$$'
  11. ;                                  $$$.,d$$'
  12. ;                                  `²S$$S²'
  13. ;------------------------------------------------------------------------------
  14. ; P.P.L.X. 2.OO                          (C)1996 - Lone Runner / AEGiS CoRP'96 
  15. ;------------------------------------------------------------------------------
  16. ; PPE 3.2O (Encryption type I) - Analysis ON - Postprocessing ON
  17. ;------------------------------------------------------------------------------
  18.  
  19.     String   STRING001
  20.     String   STRING002
  21.     String   STRING003
  22.     String   STRING004
  23.     String   STRING005
  24.  
  25. ;------------------------------------------------------------------------------
  26.  
  27.     Goto LABEL001
  28.     End
  29.     If (0 == 0) STRING001 = "NO"
  30.     If (0 == 1) STRING001 = "YES"
  31.  
  32.     EndFunc
  33.  
  34.     :LABEL001
  35.     STRING004 = String(PcbNode())
  36.     If (PcbNode() == 0) STRING004 = "A"
  37.     STRING003 = String(Random(1000)) + "X" + STRING004
  38.     STRING005 = GetEnv(STRING004 + "RECNO")
  39.     STRING005 = ToInteger(STRING005)
  40.     DCloseAll
  41.     DOpen 0, PPEPath() + "USER.DBF", 0
  42.     DGo 0, STRING005
  43.     If (DGet(0, "ATT_DEF") == "S") Then
  44.         Cls
  45.         PrintLn "@X10┌─────────────────────────────────────────────────────────────────────────────@X19┐@X0F"
  46.         PrintLn "@X10│@X9C                YOU HAVE BEEN SUMMONED TO FIGHT ANOTHER PLAYER  @POS:79@@X19│@X0F"
  47.         PrintLn "@X10│@X1F @POS:79@@X19│@X0F"
  48.         PrintLn "@X10│@X1F @POS:79@@X19│@X0F"
  49.         PrintLn "@X10│@X1F                             @X1B(@X1CA@X1B)@X1Fccept or @X1B(@X1AD@X1B)@X1Fecline? @POS:79@@X19│@X0F"
  50.         PrintLn "@X10└@X19─────────────────────────────────────────────────────────────────────────────@X19┘@X0F"
  51.         InputStr "_", STRING002, 11, 1, "AD", 0 + 8
  52.         If (STRING002 == "A") Then
  53.             DCloseAll
  54.             Delete PPEPath() + STRING003 + ".NDX"
  55.             Delete PPEPath() + "" + ".NDX"
  56.             Delete PPEPath() + "" + ".NDX"
  57.             Delete PPEPath() + "" + ".NDX"
  58.             Delete PPEPath() + "" + ".NDX"
  59.             Call PPEPath() + "VRS-M13.PPE"
  60.             Goto LABEL002
  61.             Goto LABEL002
  62.         Endif
  63.         If (STRING002 == "D") Then
  64.             DGo 0, DGet(0, "OPP_NODE")
  65.             DPut 0, "ATT_DEF", "N"
  66.             DPut 0, "MESSAGE", "NO THANKS!"
  67.             DGo 0, STRING005
  68.             Goto LABEL002
  69.         Endif
  70.     Endif
  71.     :LABEL002
  72.     DCloseAll
  73.     End
  74.  
  75. ;------------------------------------------------------------------------------
  76. ;
  77. ; Usage report (before postprocessing)
  78. ;
  79. ; ■ Statements used :
  80. ;
  81. ;    2       End
  82. ;    1       Cls
  83. ;    7       Goto 
  84. ;    7       Let 
  85. ;    6       PrintLn 
  86. ;    6       If 
  87. ;    5       Delete 
  88. ;    1       InputStr 
  89. ;    1       Call 
  90. ;    1       EndFunc
  91. ;    1       DOpen 
  92. ;    3       DCloseAll
  93. ;    3       DGo 
  94. ;    2       DPut 
  95. ;
  96. ;
  97. ; ■ Functions used :
  98. ;
  99. ;    16      +
  100. ;    6       ==
  101. ;    3       !
  102. ;    1       Random()
  103. ;    2       String()
  104. ;    7       PPEPath()
  105. ;    2       PcbNode()
  106. ;    1       GetEnv()
  107. ;    1       ToInteger()
  108. ;    2       DGet()
  109. ;
  110. ;------------------------------------------------------------------------------
  111. ;
  112. ; Analysis flags : C
  113. ;
  114. ; C - Call child PPE ■ 3
  115. ;     This is usually normal, but may be a tricky way to launch some
  116. ;     sysop-only commands.
  117. ;     ■ Search for : CALL
  118. ;
  119. ;------------------------------------------------------------------------------
  120. ;
  121. ; Postprocessing report
  122. ;
  123. ;    0       For/Next
  124. ;    0       While/EndWhile
  125. ;    3       If/Then or If/Then/Else
  126. ;    0       Select Case
  127. ;
  128. ;------------------------------------------------------------------------------
  129. ;                 AEGiS Corp - Break the routines, code against the machines!
  130. ;------------------------------------------------------------------------------
  131.